//
// "$Id: fl_vertex.cxx 9239 2012-02-17 09:47:04Z manolo $"
//
// Portable drawing routines for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2011 by Bill Spitzak and others.
//
// This library is free software. Distribution and use rights are outlined in
// the file "COPYING" which should have been included with this file.  If this
// file is missing or damaged, see the license at:
//
//     http://www.fltk.org/COPYING.php
//
// Please report all bugs and problems on the following page:
//
//     http://www.fltk.org/str.php
//

/**
  \file fl_vertex.cxx
  \brief  Portable drawing code for drawing arbitrary shapes with
          simple 2D transformations.
*/

// Portable drawing code for drawing arbitrary shapes with
// simple 2D transformations.  See also fl_arc.cxx

// matt: the Quartz implementation purposely doesn't use the Quartz matrix
//       operations for reasons of compatibility and maintainability

#include "fltk_config.h"
#include "fl_draw.H"
#include "x.H"
#include "Fl.H"
#include "fltkmath.h"
#include <stdlib.h>

void Fl_Graphics_Driver::push_matrix()
{
	if (sptr==matrix_stack_size)
		Fl::error("fl_push_matrix(): matrix stack overflow.");
	else
		stack[sptr++] = m;
}

void Fl_Graphics_Driver::pop_matrix()
{
	if (sptr==0)
		Fl::error("fl_pop_matrix(): matrix stack underflow.");
	else
		m = stack[--sptr];
}

void Fl_Graphics_Driver::mult_matrix(double a, double b, double c, double d, double x, double y)
{
	matrix o;
	o.a = a*m.a + b*m.c;
	o.b = a*m.b + b*m.d;
	o.c = c*m.a + d*m.c;
	o.d = c*m.b + d*m.d;
	o.x = x*m.a + y*m.c + m.x;
	o.y = x*m.b + y*m.d + m.y;
	m = o;
}

void Fl_Graphics_Driver::rotate(double d)
{
	if (d) {
		double s, c;
		if (d == 0) {
			s = 0;
			c = 1;
		} else if (d == 90) {
			s = 1;
			c = 0;
		} else if (d == 180) {
			s = 0;
			c = -1;
		} else if (d == 270 || d == -90) {
			s = -1;
			c = 0;
		} else {
			s = sin(d*M_PI/180);
			c = cos(d*M_PI/180);
		}
		mult_matrix(c,-s,s,c,0,0);
	}
}

void Fl_Graphics_Driver::begin_points()
{
	n = 0;
	what = POINT_;
}

void Fl_Graphics_Driver::begin_line()
{
	n = 0;
	what = LINE;
}

void Fl_Graphics_Driver::begin_loop()
{
	n = 0;
	what = LOOP;
}

void Fl_Graphics_Driver::begin_polygon()
{
	n = 0;
	what = POLYGON;
}

double Fl_Graphics_Driver::transform_x(double x, double y)
{
	return x*m.a + y*m.c + m.x;
}

double Fl_Graphics_Driver::transform_y(double x, double y)
{
	return x*m.b + y*m.d + m.y;
}

double Fl_Graphics_Driver::transform_dx(double x, double y)
{
	return x*m.a + y*m.c;
}

double Fl_Graphics_Driver::transform_dy(double x, double y)
{
	return x*m.b + y*m.d;
}

void Fl_Graphics_Driver::transformed_vertex0(COORD_T x, COORD_T y)
{
	if (!n || x != p[n-1].x || y != p[n-1].y) {
		if (n >= p_size) {
			p_size = p ? 2*p_size : 16;
			p = (XPOINT*)realloc((void*)p, p_size*sizeof(*p));
		}
		p[n].x = x;
		p[n].y = y;
		n++;
	}
}

void Fl_Graphics_Driver::transformed_vertex(double xf, double yf)
{
#if __FLTK_MACOSX__
#ifdef __APPLE_QUARTZ__
	transformed_vertex0(COORD_T(xf), COORD_T(yf));
#else
	transformed_vertex0(COORD_T(rint(xf)), COORD_T(rint(yf)));
#endif
#elif __FLTK_IPHONOS__
    transformed_vertex0(COORD_T(xf), COORD_T(yf));
#else
    transformed_vertex0(COORD_T(rint(xf)), COORD_T(rint(yf)));
#endif
}

void Fl_Graphics_Driver::vertex(double x,double y)
{
	transformed_vertex0(COORD_T(x*m.a + y*m.c + m.x), COORD_T(x*m.b + y*m.d + m.y));
}

void Fl_Graphics_Driver::end_points()
{
#if __FLTK_WIN32__
	for (int i=0; i<n; i++) SetPixel(fl_gc, p[i].x, p[i].y, fl_RGB());
#elif __FLTK_WINCE__
	for (int i=0; i<n; i++) SetPixel(fl_gc, p[i].x, p[i].y, fl_RGB());
#elif __FLTK_MACOSX__
  #if defined(__APPLE_QUARTZ__)
	if (fl_quartz_line_width_ > 1.5f) CGContextSetShouldAntialias(fl_gc, true);
	for (int i=0; i<n; i++) {
		CGContextMoveToPoint(fl_gc, p[i].x, p[i].y);
		CGContextAddLineToPoint(fl_gc, p[i].x, p[i].y);
		CGContextStrokePath(fl_gc);
	}
	if (fl_quartz_line_width_ > 1.5f) CGContextSetShouldAntialias(fl_gc, false);
  #endif
#elif __FLTK_IPHONEOS__
  //#if defined(__APPLE_QUARTZ__)
	if (fl_quartz_line_width_ > 1.5f) CGContextSetShouldAntialias(fl_gc, true);
	for (int i=0; i<n; i++) {
		CGContextMoveToPoint(fl_gc, p[i].x, p[i].y);
		CGContextAddLineToPoint(fl_gc, p[i].x, p[i].y);
		CGContextStrokePath(fl_gc);
	}
	if (fl_quartz_line_width_ > 1.5f) CGContextSetShouldAntialias(fl_gc, false);
  //#endif
#elif __FLTK_LINUX__
	if (n>1) XDrawPoints(fl_display, fl_window, fl_gc, p, n, 0);
#elif __FLTK_S60v32__
	for (int i = 0; i < n; i++) {
		Fl_X::WindowGc->Plot(TPoint(p[i].x, p[i].y));
	}
#elif __FLTK_ANDROID__
#else
#error unsupported platform
#endif
}

void Fl_Graphics_Driver::end_line()
{
	if (n < 2) {
		end_points();
		return;
	}

#if __FLTK_WIN32__
	if (n>1) Polyline(fl_gc, p, n);
#elif __FLTK_WINCE__
	if (n>1) Polyline(fl_gc, p, n);
#elif __FLTK_MACOSX__
  #if defined(__APPLE_QUARTZ__)
	if (n<=1) return;
	CGContextSetShouldAntialias(fl_gc, true);
	CGContextMoveToPoint(fl_gc, p[0].x, p[0].y);
	for (int i=1; i<n; i++)
		CGContextAddLineToPoint(fl_gc, p[i].x, p[i].y);
	CGContextStrokePath(fl_gc);
	CGContextSetShouldAntialias(fl_gc, false);
  #endif
#elif __FLTK_IPHONEOS__
  //#if defined(__APPLE_QUARTZ__)
	if (n<=1) return;
	CGContextSetShouldAntialias(fl_gc, true);
	CGContextMoveToPoint(fl_gc, p[0].x, p[0].y);
	for (int i=1; i<n; i++)
		CGContextAddLineToPoint(fl_gc, p[i].x, p[i].y);
	CGContextStrokePath(fl_gc);
	CGContextSetShouldAntialias(fl_gc, false);
  //#endif
#elif __FLTK_LINUX__
  #if defined(USE_X11)
	if (n>1) XDrawLines(fl_display, fl_window, fl_gc, p, n, 0);
  #endif
#elif __FLTK_S60v32__
	// DONE: S60
	// CArrayFixFlat<TPoint> points(n);
	TPoint *points = new TPoint[n];
	for (int i = 0; i < n; i++) {
		points[i] = TPoint(p[i].x, p[i].y);
	}
	Fl_X::WindowGc->DrawPolyLine(points, n);
	delete [] points;
#elif __FLTK_ANDROID__	
#else
#error unsupported platform
#endif
}

void Fl_Graphics_Driver::fixloop()    // remove equal points from closed path
{
	while (n>2 && p[n-1].x == p[0].x && p[n-1].y == p[0].y) n--;
}

void Fl_Graphics_Driver::end_loop()
{
	fixloop();
	if (n>2) transformed_vertex((COORD_T)p[0].x, (COORD_T)p[0].y);
	end_line();
}

void Fl_Graphics_Driver::end_polygon()
{
	fixloop();
	if (n < 3) {
		end_line();
		return;
	}
#if __FLTK_WIN32__
	if (n>2) {
		SelectObject(fl_gc, fl_brush());
		Polygon(fl_gc, p, n);
	}
#elif __FLTK_WINCE__
	if (n>2) {
		SelectObject(fl_gc, fl_brush());
		Polygon(fl_gc, p, n);
	}
#elif __FLTK_MACOSX__
  #if defined(__APPLE_QUARTZ__)
	if (n<=1) return;
	CGContextSetShouldAntialias(fl_gc, true);
	CGContextMoveToPoint(fl_gc, p[0].x, p[0].y);
	for (int i=1; i<n; i++)
		CGContextAddLineToPoint(fl_gc, p[i].x, p[i].y);
	CGContextClosePath(fl_gc);
	CGContextFillPath(fl_gc);
	CGContextSetShouldAntialias(fl_gc, false);
  #endif
#elif __FLTK_IPHONEOS__
  //#if defined(__APPLE_QUARTZ__)
	if (n<=1) return;
	CGContextSetShouldAntialias(fl_gc, true);
	CGContextMoveToPoint(fl_gc, p[0].x, p[0].y);
	for (int i=1; i<n; i++)
		CGContextAddLineToPoint(fl_gc, p[i].x, p[i].y);
	CGContextClosePath(fl_gc);
	CGContextFillPath(fl_gc);
	CGContextSetShouldAntialias(fl_gc, false);
  //#endif
#elif __FLTK_LINUX__
  #if defined(USE_X11)
	if (n>2) XFillPolygon(fl_display, fl_window, fl_gc, p, n, Convex, 0);
  #endif
#elif __FLTK_S60v32__
	// DONE: S60
	// CArrayFixFlat<TPoint> points(n);
	TPoint *points = new TPoint[n];
	for (int i = 0; i < n; i++) {
		points[i] = TPoint(p[i].x, p[i].y);
	}
	Fl_X::WindowGc->DrawPolygon(points, n);
	delete [] points;
#elif __FLTK_ANDROID__
#else
#error unsupported platform
#endif
}

void Fl_Graphics_Driver::begin_complex_polygon()
{
	begin_polygon();
	gap_ = 0;
#if __FLTK_WIN32__
	numcount = 0;
#elif __FLTK_WINCE__
    numcount = 0;
#endif
}

void Fl_Graphics_Driver::gap()
{
	while (n>gap_+2 && p[n-1].x == p[gap_].x && p[n-1].y == p[gap_].y) n--;
	if (n > gap_+2) {
		transformed_vertex((COORD_T)p[gap_].x, (COORD_T)p[gap_].y);
#if __FLTK_WIN32__
		counts[numcount++] = n-gap_;
#elif __FLTK_WINCE__
        counts[numcount++] = n-gap_;
#endif
		gap_ = n;
	} else {
		n = gap_;
	}
}

void Fl_Graphics_Driver::end_complex_polygon()
{
	gap();
	if (n < 3) {
		end_line();
		return;
	}
#if __FLTK_WIN32__
	if (n>2) {
		SelectObject(fl_gc, fl_brush());
		PolyPolygon(fl_gc, p, counts, numcount);
	}
#elif __FLTK_WINCE__
	if (n>2) {
		//SelectObject(fl_gc, fl_brush());
		//PolyPolygon(fl_gc, p, counts, numcount);
		SelectObject(fl_gc, fl_brush());
		Polygon(fl_gc, p, numcount);
		/*
		HRGN hRgn = ExtCreateRegion(NULL, p, counts);
		FillRgn(fl_gc, hRgn, (HBRUSH)SelectObject(fl_gc, fl_brush()));
		DeleteObject(hRgn);
		*/
	}
#elif __FLTK_MACOSX__
  #if defined(__APPLE_QUARTZ__)
	if (n<=1) return;
	CGContextSetShouldAntialias(fl_gc, true);
	CGContextMoveToPoint(fl_gc, p[0].x, p[0].y);
	for (int i=1; i<n; i++)
		CGContextAddLineToPoint(fl_gc, p[i].x, p[i].y);
	CGContextClosePath(fl_gc);
	CGContextFillPath(fl_gc);
	CGContextSetShouldAntialias(fl_gc, false);
  #endif
#elif __FLTK_IPHONEOS__
  //#if defined(__APPLE_QUARTZ__)
	if (n<=1) return;
	CGContextSetShouldAntialias(fl_gc, true);
	CGContextMoveToPoint(fl_gc, p[0].x, p[0].y);
	for (int i=1; i<n; i++)
		CGContextAddLineToPoint(fl_gc, p[i].x, p[i].y);
	CGContextClosePath(fl_gc);
	CGContextFillPath(fl_gc);
	CGContextSetShouldAntialias(fl_gc, false);
 // #endif
#elif __FLTK_LINUX__
  #if defined(USE_X11)
	if (n>2) XFillPolygon(fl_display, fl_window, fl_gc, p, n, 0, 0);
  #endif
#elif __FLTK_S60v32__
	// DONE: S60
	// CArrayFixFlat<TPoint> points(n);
	TPoint *points = new TPoint[n];
	for (int i = 0; i < n; i++) {
		points[i] = TPoint(p[i].x, p[i].y);
	}
	Fl_X::WindowGc->DrawPolygon(points, n);
	delete [] points;
#elif __FLTK_ANDROID__
#else
#error unsupported platform
#endif
}

// shortcut the closed circles so they use XDrawArc:
// warning: these do not draw rotated ellipses correctly!
// See fl_arc.c for portable version.

void Fl_Graphics_Driver::circle(double x, double y,double r)
{
	double xt = transform_x(x,y);
	double yt = transform_y(x,y);
	double rx = r * (m.c ? sqrt(m.a*m.a+m.c*m.c) : fabs(m.a));
	double ry = r * (m.b ? sqrt(m.b*m.b+m.d*m.d) : fabs(m.d));
	int llx = (int)rint(xt-rx);
	int w = (int)rint(xt+rx)-llx;
	int lly = (int)rint(yt-ry);
	int h = (int)rint(yt+ry)-lly;

#if __FLTK_WIN32__
	if (what==POLYGON) {
		SelectObject(fl_gc, fl_brush());
		Pie(fl_gc, llx, lly, llx+w, lly+h, 0,0, 0,0);
	} else
		Arc(fl_gc, llx, lly, llx+w, lly+h, 0,0, 0,0);
#elif __FLTK_WINCE__
	if (what==POLYGON) {
		SelectObject(fl_gc, fl_brush());
		//Pie(fl_gc, llx, lly, llx+w, lly+h, 0,0, 0,0);
	} else
		//Arc(fl_gc, llx, lly, llx+w, lly+h, 0,0, 0,0);
		Ellipse(fl_gc, llx, lly, llx+w, lly+h);
#elif __FLTK_MACOSX__
  #if defined(__APPLE_QUARTZ__)
	// Quartz warning: circle won't scale to current matrix!
	// Last argument must be 0 (counter-clockwise) or it draws nothing under __LP64__ !!!!
	CGContextSetShouldAntialias(fl_gc, true);
	CGContextAddArc(fl_gc, xt, yt, (w+h)*0.25f, 0, 2.0f*M_PI, 0);
	(what == POLYGON ? CGContextFillPath : CGContextStrokePath)(fl_gc);
	CGContextSetShouldAntialias(fl_gc, false);
  #endif
#elif __FLTK_IPHONEOS__
  //#if defined(__APPLE_QUARTZ__)
	// Quartz warning: circle won't scale to current matrix!
	// Last argument must be 0 (counter-clockwise) or it draws nothing under __LP64__ !!!!
	CGContextSetShouldAntialias(fl_gc, true);
	CGContextAddArc(fl_gc, xt, yt, (w+h)*0.25f, 0, 2.0f*M_PI, 0);
	(what == POLYGON ? CGContextFillPath : CGContextStrokePath)(fl_gc);
	CGContextSetShouldAntialias(fl_gc, false);
  //#endif
#elif __FLTK_LINUX__
  #if defined(USE_X11)
	(what == POLYGON ? XFillArc : XDrawArc)
	(fl_display, fl_window, fl_gc, llx, lly, w, h, 0, 360*64);
  #endif
#elif __FLTK_S60v32__
	// DONE: S60
	if (what == POLYGON) {
		Fl_X::WindowGc->DrawEllipse(TRect(x - r, y - r, x + r, y + r));
	} else {
		Fl_X::WindowGc->SetBrushStyle(CFbsBitGc::ENullBrush);
		Fl_X::WindowGc->DrawEllipse(TRect(x - r, y - r, x + r, y + r));
		Fl_X::WindowGc->SetBrushStyle(CFbsBitGc::ESolidBrush);
	}
#elif __FLTK_ANDROID__
#else
#error unsupported platform
#endif
}

//
// End of "$Id: fl_vertex.cxx 9239 2012-02-17 09:47:04Z manolo $".
//
